home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / art&graf.ix / art-0074 / qrt / room.qrt < prev    next >
Text File  |  1997-04-16  |  4KB  |  174 lines
  1. {*******************************
  2.  
  3.             Room
  4.  
  5.  *******************************}
  6.  
  7.  
  8. FILE_NAME = ROOM.RAW
  9.  
  10.  
  11. { *********   Some pattern definitions ********** }
  12.  
  13. PATTERN ( x_size = 16,                 { ** A checkered pattern ** }
  14.           y_size = 16,
  15.           name   = CHECK,
  16.  
  17.           RECTANGLE (
  18.             start_x = 0, start_y = 0,
  19.             end_x   = 8, end_y   = 8,
  20.  
  21.             diff    = (1, .20, .20);
  22.           )
  23.           RECTANGLE (
  24.             start_x = 8, start_y = 8,
  25.             end_x   = 16, end_y   = 16,
  26.  
  27.             diff    = (1.00, .20, .20);
  28.           )
  29.         )
  30.  
  31.  
  32. PATTERN ( x_size = 80,                    { ** brick pattern ** }
  33.           y_size = 50,
  34.           name   = BRICK,
  35.           RECTANGLE (                     { 1st half brick 1 }
  36.             start_x = 0, start_y = 2,
  37.             end_x   = 18, end_y   = 23,
  38.             diff    = (1.00, .20, .20);
  39.           )
  40.           RECTANGLE (                     { 2nd hald brick 1 }
  41.             start_x = 62, start_y = 2,
  42.             end_x   = 80, end_y   = 23,
  43.             diff    = (1.00, .20, .20);
  44.           )
  45.           RECTANGLE (                     { brick 2 }
  46.             start_x = 22, start_y = 2,
  47.             end_x   = 58, end_y   = 23,
  48.             diff    = (.80, .20, .20);
  49.           )
  50.           RECTANGLE (                     { brick 3 }
  51.             start_x = 2, start_y = 27,
  52.             end_x   = 38, end_y   = 48,
  53.             diff    = (.85, .35, .10);
  54.           )
  55.           RECTANGLE (                     { brick 4 }
  56.             start_x = 42, start_y = 27,
  57.             end_x   = 78, end_y   = 48,
  58.             diff    = (.70, .25, .20);
  59.           )
  60.         )
  61.  
  62.  
  63. { ***********   Now for the room itself ************ }
  64.  
  65.     { ** four walls ** }
  66.  
  67.     PARALLELOGRAM ( loc  = (  0,  0, -100),
  68.                     v1   = (100,  0,    0),
  69.                     v2   = (  0, 50,    0),
  70.                     pattern = BRICK,
  71.  
  72.                     xmult = .2,
  73.                     ymult = .2
  74.                   )
  75.  
  76.     PARALLELOGRAM ( loc  = (  0,  0,  100),
  77.                     v1   = (100,  0,    0),
  78.                     v2   = (  0, 50,    0),
  79.                     pattern = BRICK,
  80.                     xmult = .2,
  81.                     ymult = .2
  82.                   )
  83.  
  84.     PARALLELOGRAM ( loc  = (100,  0, -100),
  85.                     v1   = (  0,  0,  200),
  86.                     v2   = (  0, 50,    0),
  87.                     pattern = BRICK
  88.                     xmult = .2,
  89.                     ymult = .2
  90.                   )
  91.  
  92.     PARALLELOGRAM ( loc  = (  0,  0, -100),
  93.                     v1   = (  0,  0,  200),
  94.                     v2   = (  0, 50,    0),
  95.                     pattern = BRICK,
  96.                     xmult = .2,
  97.                     ymult = .2,
  98.                   )
  99.  
  100.     { ** a floor ** }
  101.  
  102.     PARALLELOGRAM ( loc  = (  0, 0,  100),
  103.                     v1   = (100, 0,    0),
  104.                     v2   = (  0, 0, -200),
  105.  
  106.                     diff = (  0, 1, 0),
  107.                     pattern = CHECK
  108.                   )
  109.  
  110.     { ** several mirrored spheres ** }
  111.  
  112.     BEGIN_BBOX
  113.  
  114.         SPHERE    ( loc = (50, 25, -40),
  115.                     radius = 15,
  116.  
  117.                     diff   = (0, 0, 0),
  118.                     mirror = (.9, .9, .9),
  119.                     dither = 0
  120.                   )
  121.     END_BBOX
  122.  
  123.     BEGIN_BBOX
  124.  
  125.        QUADRATIC  ( loc      = (30, 0, -20),
  126.  
  127.                     a        = 1,
  128.                     b        = 0,
  129.                     c        = 1,
  130.                     d        = 50,
  131.  
  132.                     xmin     = -10,
  133.                     xmax     =  10,
  134.                     ymin     =   0,
  135.                     ymax     =  50,
  136.                     zmin     = -10,
  137.                     zmax     =   4,
  138.  
  139.                     diff     = (.7, 0, 0),
  140.                     dither   = 4,
  141.                     reflect  = .4,
  142.                     sreflect = 30
  143.                   )
  144.  
  145.  
  146.     END_BBOX
  147.  
  148. { ** An observer ** }
  149.  
  150. OBSERVER ( loc    = (40, 25, 30),
  151.            lookat = (50, 0, -100)
  152.          )
  153.  
  154. { ** Two lamps ** }
  155.  
  156. LAMP ( loc = (65, 70, 20),
  157.        radius = 5,
  158.        dist = 45
  159.      )
  160.  
  161. LAMP ( loc = (30, 55, -10),
  162.        radius = 5,
  163.        dist = 25
  164.      )
  165.  
  166. SKY  ( horiz  = (0, 0, .55),
  167.        zenith = (0, 0, .25),
  168.        dither = 4
  169.      )
  170.  
  171. FOC_LENGTH = 50
  172.  
  173.  
  174.